#!/usr/bin/perl -w

require 'common.pl';

# There should be one call to 'is_parent'
my @calls = find_function_calls('is_parent');
die unless scalar(@calls) == 1;
# There should be no calls to 'is_child' (child is not traced)
@calls = find_function_calls('is_child');
die unless scalar(@calls) == 0;

